package saisir_afficher is
  procedure afficher (message : string);
  function saisir (message : string) return string;
end saisir_afficher;
